function h = PlotCompass(positions)

% This function plots the anterior to Posterior and L to R orientations for
% dicom images (if no positional input is given)

% If position is given it should be  a cell of strings noting position from
% in the direction of the '(N)ever (E)at (S)hredded (W)heat' moniker

if nargin < 1
    positions = {'A','L','P','R'};
end

% plot compass
h = axes('Position',[0 0 1 1],'Visible','off');
text(.03,.09,['  ' positions{1} '  '],'Color','k', 'HorizontalAlignment','Center');
text(.03,.06,[positions{4} '   ' positions{2}],'Color','k', 'HorizontalAlignment','Center');
text(.03,.03,['  ' positions{3} '  '],'Color','k', 'HorizontalAlignment','Center');
